home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)ge.d64 / dodge cars.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  160 lines
  1. 88 GOSUB7000:POKE828,.:POKE829,.
  2. 89 GOSUB50000:GOSUB60000:GOSUB1000:GOSUB60212
  3. 97 POKEV+TH,.:POKESI+11,17:POKEDS,32
  4. 98 FORT=.TO100/(LV/TT*TW):NEXT:R=RR:SU=TT:GOTO101
  5. 99 FORT=.TO75/(LV*TE*H):NEXT:R=RND(W)-R1:SU=TT:GOTO101
  6. 100 FORT=.TO110/(LV*TE):NEXT:R=RND(W)
  7. 101 IFPEEK(V+TH)=DUTHENGOSUB4000:GOSUB60115:GOTO97
  8. 102 ONFNC(C)GOTO130,110,,,109,115,120
  9. 109 SC=SC+TE*LV
  10. 110 POKEDS,TR:POKEFNG(PO),BS:NC=NC+LV:PRINTS$;SC+NC
  11. 111 IFNC=C2*LVTHENGOSUB5000:GOSUB60114:GOSUB1000:GOTO97
  12. 112 POKEDS,BS:GOTO130
  13. 115 D1=FND(D1):Y=D1(D1):X=D1((D1-W)ANDH):POKEP2,P(D1):GOTO130
  14. 120 IFPEEK(P(TT))=JTHENIFPEEK(FNI(PO))=QTHENGOSUB700:GOTO165
  15. 125 IFPEEK(P(TT))=KTHENIFPEEK(FNJ(PO))=QTHENGOSUB750:GOTO165
  16. 130 IFPEEK(P(TT))=TETHEN:SU=H:GOTO165
  17. 145 IFPEEK(P(TT))=EITHENSU=W
  18. 165 POKECN,SF+SU:     IFR>BCTHENGOSUB800
  19. 170 DY=DY+Y:DX=DX+X:POKEV+F+W,DY:POKEV+F,DX
  20. 180 ONSUGOTO98,100,99
  21. 700 FORT=.TOTT:DX=DX+(D1(D1)/TT):DY=DY+(D1(D1+WANDH)/TT):NEXT:L1=L1-W
  22. 701 DX=DX-E*-(Y=.):DY=DY-E*-(X=.):RETURN
  23. 750 FORT=.TOTT:DX=DX-D1(D1)/TT:DY=DY-D1(D1+WANDH)/TT:NEXT:L1=L1+W
  24. 751 DX=DX+E*-(Y=.):DY=DY+E*-(X=.):RETURN
  25. 800 ON-(L1<L2)-TT*(L1>L2)-H*(L1=L2)GOTO900,910,810
  26. 810 IFPEEK(FNE(C))<>NTTHEN885
  27. 815 D2=FNH(D2):Y2=D1(D2):X2=D1((D2-W)ANDH):POKEP3,P(D2)
  28. 885 NY=NY+Y2:NX=NX+X2:POKEV+SF,NY:POKEV+SX,NX:RETURN
  29. 900 IFPEEK(FNL(C))<>QTHEN810
  30. 901 FORT=.TOTT:NX=NX+(D1((D2-TT)ANDH))/TT:NY=NY+(D1(D2-WANDH))/TT:NEXT:L2=L2-W
  31. 902 NX=NX-E*-(Y2=.):NY=NY-E*-(X2=.):GOTO885
  32. 910 IFPEEK(FNM(C))<>QTHEN810
  33. 911 FORT=.TOTT:NX=NX-(D1((D2-TT)ANDH))/TT:NY=NY-(D1(D2-WANDH))/TT:NEXT:L2=L2+W
  34. 912 NX=NX+E*-(Y2=.):NY=NY+E*-(X2=.):GOTO885
  35. 1000 POKE53280,12:POKE53281,.:POKE53265,PEEK(53265)AND239
  36. 1026 PRINT"[152][147]  [146]   [146][144][218][152] . . . . [160][160][160] . . . . [144][218][152]  [146]  [167][158]CARS! [152][180]"
  37. 1035 PRINT"[145]  [146].  [146]          [146][160][160][160]         [146]   [146]. [167][166][166][166][166][166][166][152][180]"
  38. 1040 PRINT"[145]  [146]   [146].         [146][160][160][160]         [146].  [146]  [167]      [180]"
  39. 1045 PRINT"[145]  [146].  [146]   [146][144][218][152] . . .[160][160][160]. . . [144][218][152]  [146]   [146]. [167]      [180]"
  40. 1050 PRINT"[145]  [146]   [146].  [146]       [146][160][160][160]      [146]   [146].  [146]  [167]      [180]"
  41. 1051 PRINT"[145]  [146].  [146]   [146].      [146][160][160][160]      [146].  [146]   [146]. [167]SCORE=[180]"
  42. 1056 PRINT"[145]  [146]   [146].  [146]   [146][144][218][152] . [160][160][160] . [144][218][152]  [146]   [146].  [146]  [167]      [180]"
  43. 1060 PRINT"[145]  [146].  [146]   [146].  [146] [158][169]  [223][146]  [169] [146][152]    [146].  [146]   [146]. [167]      [180]"
  44. 1061 PRINT"[145]  [146][160][160][160][160][160][160][160][160][160][160][158] [146]    [169][146]  [146][152] [160][160][160][160][160][160][160][160][160][160] [167]      [180]"
  45. 1070 PRINT"[145]  [146][160][160][160][160][160][160][160][160][160][160][158] [169] [223][146]     [146][152][160][160][160][160][160][160][160][160][160][160] [167]BONUS=[180]"
  46. 1075 PRINT"[145]  [146][160][160][160][160][160][160][160][160][160][160][158] [146]   [146]    [146][152] [160][160][160][160][160][160][160][160][160][160] [167]      [180]"
  47. 1080 PRINT"[145]  [146].  [146]   [146].  [146] [158][223]  [146][169]    [146][152]    [146].  [146]   [146]. [167]      [180]"
  48. 1085 PRINT"[145]  [146]   [146].  [146]   [146][144][218][152] . [160][160][160] . [144][218][152]  [146]   [146].  [146]  [167]      [180]"
  49. 1090 PRINT"[145]  [146].  [146]   [146].      [146][160][160][160]      [146].  [146]   [146]. [167]CAR # [180]"
  50. 1095 PRINT"[145]  [146]   [146].  [146]       [146][160][160][160]      [146]   [146].  [146]  [167]      [180]"
  51. 1100 PRINT"[145]  [146].  [146]   [146][144][218][152] . . .[160][160][160]. . . [144][218][152]  [146]   [146]. [167]      [180]"
  52. 1105 PRINT"[145]  [146]   [146].         [146][160][160][160]         [146].  [146]  [167]      [180]"
  53. 1110 PRINT"[145]  [146].  [146]          [146][160][160][160]         [146]   [146]. [167]HIGH  [180]"
  54. 1115 PRINT"[145]  [146]   [146][144][218][152] . . . . [160][160][160] . . . . [144][218][152]  [146]  [167]SCORE=[180]"
  55. 1120 PRINT"[145]  [146].            [146][160][160][160]            [146]. [167]      [180]"
  56. 1125 PRINT"[145]  [146]             [146][160][160][160]            [146]  [167]      [180]"
  57. 1130 PRINT"[145]  [146][144][218][152] . . . . . .[160][160][160]. . . . . . [144][218][152] [167][175][175][175][175][175][175][180]"
  58. 2000 FORT=.TOW:PRINT"[157][148][148]":POKE218,132:NEXT
  59. 2005 PRINT"  [146][144][218][152] . . . . . .[160][160][160]. . . . . . [144][218][152] [167][183][183][183][183][183][183][180]"
  60. 2015 PRINT"[145]  [146]             [146][160][160][160]            [146]  [167][166][166][166][166][166][166][152][180]"
  61. 2020 PRINT"[145]  [146].            [146][160][160][160]            [146]. [167][158]DODGE [152][180]"
  62. 2021 IFLV<6THEN2050
  63. 2022 FORT=WTOLV-5
  64. 2025 XT=INT(RND(1)*987)+1026:IFPEEK(XT)<>46THEN2025
  65. 2030 POKEXT,83:POKEXT+54272,10:NEXT
  66. 2050 PRINTC$;CA;S$;SC;B$;BO;H$;HI
  67. 2060 POKE53265,PEEK(53265)OR16:RETURN
  68. 4000 POKESI+18,129:FORT=15TO.STEP-W:POKESI+24,T:FORTN=.TO59:NEXTTN:NEXTT
  69. 4005 POKESI+18,128:IFPEEK(FNG(PO))=46THENPOKEFNG(PO),BS:NC=NC+LV:PRINTS$;SC+NC
  70. 4010 CA=CA+W:IFCA=FTHENCA=.
  71. 4015 PRINTC$;CA
  72. 4020 POKEV+30,.:POKESI+24,15:RETURN
  73. 5000 POKESI+11,16
  74. 5010 FORT=WTOLV:FORO=.TO20:POKESI+F,33:POKESI+W,37+T:NEXTO:POKESI+F,32
  75. 5020 BO=BO+10:PRINTB$;BO:NEXTT:BO=.:POKESI+F,32:FORT=.TO2000:NEXT:POKESI+W,37
  76. 5030 RETURN
  77. 7000 POKE53265,PEEK(53265)AND239:POKE53269,.:PRINTCHR$(142)CHR$(8)
  78. 7001 POKE53280,.:POKE53281,7 :PRINT"[147]":POKE53281,.:FORT=1024TO1063
  79. 7005 POKET,102:POKET+960,102:NEXT:PRINT"[158]":FORT=1064TO1944STEP40:POKET,102
  80. 7010 POKET+39,102:NEXT:PRINT"[158]              DODGE CARS              "
  81. 7011 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  82. 7012 PRINT"           BY ROGER D BURGE
  83. 7015 [153]"INSTRUCTIONS?  (Y/N)":[151]53265,[194](53265)[176]16
  84. 7020 [161]A$:[139]A$[178]""[167]7020
  85. 7025 [139]A$[178]"Y"[167]7040
  86. 7030 [139]A$[178]"N"[167][142]
  87. 7035 [137]7020
  88. 7040 [153]"USE THESE KEYS TO CONTROL THE SYSYELLOW  SPC(SPC(CAR:"
  89. 7045 [153]"      A WAIT  ACCELERATE
  90. 7050 PRINT"[152]      D [146]  DECELERATE
  91. 7055 [153]"      J WAIT  MOVE TO NEXT INNER LANE
  92. 7060 PRINT"[152]      K [146]  MOVE TO NEXT OUTER LANE
  93. 7065 [153]"COLLECT THE DOTS WITH YOUR CAR. WATCH SYSSPC(SPC(OUT FOR THE ";
  94. 7066 [153]"CONTBLUE COMPUTER";
  95. 7070 [153]"  CAR TRYING SYSSPC(SPC(TO STOP YOU.":[153]"LOSE THREE CARS AND THE GAME IS";
  96. 7075 [153]" OVER.":[153]"COLLECT ALL THE DOTS AND YOU GET A    SYSSPC(SPC(BONUS ";
  97. 7076 [153]"AND YOU START OVER AT THE NEXT SYSSPC(SPC(OF ";
  98. 7080 [153]"TEN SKILL LEVELS.":[153]"BONUS DOTS APPEAR IN LEVELS SIX TO TEN
  99. 7085 PRINT"WHICH YOU REMAIN AT IF YOU SURVIVE.
  100. 7086 [153]"SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  101. 7090 [153]"PRESS F1 TO PLAY    / PRESS _ TO ABORT":T[178]1
  102. 7099 [151]646,T:[153]" F1 "
  103. 7100 [161]A$:[139]A$[178]""[167]T[178]T[170]6[172][171](T[179]7)[170](T[178]7)[172]6:[129]N[178].[164]149:[130]:[137]7099
  104. 7105 [139]A$[178]"INPUT"[167][142]
  105. 7110 [139]A$[178]"_"[167][151]V[170]21,.:[151]650,.:[153]"LOAD":[128]
  106. 7115 [137]7100
  107. 10000 SC[178]SC[170]NC
  108. 10001 [139]SC[177]HI[167]HI[178]SC:[151]829,[181](HI[173]256):[151]828,HI[171][194](829)[172]256:[141]11000
  109. 10010 [151]SI[170]24,.:[153]"SYS";:[141]2050
  110. 10020 [153]B$;"ONPLAY  CMDCMDCMDCMDCMDCMDAGAIN?CMDCMDCMDCMDCMDCMD(Y/N) "
  111. 10030 [161]B$:[139]B$[178]""[167]10030
  112. 10040 [139]B$[178]"Y"[167][156]:[137]89
  113. 10050 [139]B$[178]"N"[167][151]V[170]21,.:[129]T[178]SI[164]SI[170]24:[151]T,.:[130]:[151]650,.:[153]"LOAD":[128]
  114. 10060 [137]10030
  115. 11000 [151]SI[170]11,D1(W):[153]H$"ONONHIGH  CMDCMDCMDCMDCMDCMDSCORE="H$HI:[129]T[178]15[164]W[169][171]W
  116. 11005 [151]646,T:[151]SI[170]F,TR:[153]""H$;"SPC(SPC(SPC(SPC(SPC(SPC(ONONONONCMDCMDCMDCMDCMDCMDSPC(SPC(SPC(SPC(SPC(SPC("
  117. 11010 [129]O[178].[164]FF:[130]O:[151]SI[170]F,BS:[130]T:[142]
  118. 50000 SI[178]54272:[129]T[178]SI[164]SI[170]24:[151]T,.:[130]:[151]SI[170]24,15:CN[178]SI[170]8
  119. 50010 [151]CN,128:[151]SI[170]19,32:[151]SI[170]20,129:[151]SI[170]14,1:[151]SI[170]15,12
  120. 50015 [151]SI[170]11,16:[151]SI[170]12,129:[151]SI[170]13,128:[151]SI[170]8,8:[151]SI[170]7,144
  121. 50020 [151]SI[170]5,.  :[151]SI[170]6,68:[151]SI[170]1,37:[151]SI,162:[151]SI[170]4,32:DS[178]SI[170]4
  122. 50100 [142]
  123. 60000 V[178]53248:[151]V[170]21,12:L[178]40:F[178]4:H[178]3:TN[178]255:CA[178]1:TX[178][187]([171]TI):E[178]8
  124. 60001 D1(.)[178].:D1(1)[178]16:D1(2)[178].:D1(3)[178][171]16:P2[178]2042:P3[178]2043:BS[178]32:W[178]1:TT[178]2:NT[178]90
  125. 60002 J[178]34:K[178]37:BC[178].437:SU[178]W
  126. 60003 S$[178]""
  127. 60004 B$[178]""
  128. 60005 C$[178]""
  129. 60007 H$[178]""
  130. 60008 HI[178][194](829)[172]256[170][194](828)
  131. 60010 SQ[178]1066:DE[178].2:TF[178]24:FF[178]50:SX[178]6:TH[178]30:DU[178]12:TR[178]33:C2[178]96:SF[178]7:TH[178]30:TE[178]10
  132. 60011 EI[178]18:RR[178].8:R1[178].075:TW[178]20
  133. 60102 [150][165]C(C)[178][181](([194]([165]G(PO))[172]TT[173]SX)[173]F)[171]W
  134. 60103 [150][165]G(PO)[178](DY[171]FF)[173]DE[170](DX[171]TF)[173]E[170]SQ
  135. 60106 P(W)[178]196:P(2)[178]197:P(H)[178]198:P(.)[178]199
  136. 60107 [150][165]D(X)[178]X[170]W[175]H:[150][165]H(D2)[178]D2[171]W[175]H
  137. 60108 [150][165]I(PO)[178][165]G(PO)[170]L[172](Y[178].)[172][180](X)[171](X[178].)[172][180](Y)
  138. 60109 [150][165]J(PO)[178][165]G(PO)[171]L[172](Y[178].)[172][180](X)[170](X[178].)[172][180](Y)
  139. 60110 [150][165]E(C)[178](NX[171]TF)[173]E[170](NY[171]FF)[173]DE[170]SQ
  140. 60111 [150][165]L(C)[178][165]E(C)[171]L[172](Y2[178].)[172][180](X2)[170](X2[178].)[172][180](Y2)
  141. 60113 [150][165]M(C)[178][165]E(C)[170]L[172](Y2[178].)[172][180](X2)[171](X2[178].)[172][180](Y2)
  142. 60114 SC[178]SC[170]NC:NC[178].:LV[178]LV[170]1:BC[178]BC[171].037:[139]LV[177]9[167]LV[178]10
  143. 60115 [151]V[170]4,31:[151]V[170]5,138:DY[178]138:DX[178]31:X[178].:Y[178]16:[151]2042,196:[151]2043,196
  144. 60116 [151]V[170]41,7 :L1[178]F:L2[178]F:[151]V[170]42,14:X2[178].:Y2[178]16:NY[178]138:NX[178]255
  145. 60120 [151]V[170]7,138:[151]V[170]6,255:D1[178]1:D2[178]1
  146. 60190 [139]CA[178].[167]10000
  147. 60199 [142]
  148. 60212 SD[178]12544:[129]T[178]SD[164]SD[170]23:[151]T,.:[130]:[129]T[178]SD[170]24[164]SD[170]47:[135]Q:[151]T,Q:[130]
  149. 60213 [129]T[178]SD[170]48[164]SD[170]63:[151]T,.:[130]
  150. 60220 [129]T[178]SD[170]64[164]SD[170]87:[151]T,.:[130]:[129]T[178]SD[170]88[164]SD[170]111:[135]Q:[151]T,Q:[130]
  151. 60221 [129]T[178]SD[170]112[164]SD[170]127:[151]T,.:[130]
  152. 60230 [129]T[178]SD[170]128[164]SD[170]151:[151]T,.:[130]:[129]T[178]SD[170]152[164]SD[170]175:[135]Q:[151]T,Q:[130]
  153. 60231 [129]T[178]SD[170]176[164]SD[170]191:[151]T,.:[130]
  154. 60240 [129]T[178]SD[170]192[164]SD[170]215:[151]T,.:[130]:[129]T[178]SD[170]216[164]SD[170]239:[135]Q:[151]T,Q:[130]
  155. 60251 [129]T[178]SD[170]240[164]SD[170]264:[151]T,.:[130]:Q[178]96:[142]
  156. 63000 [131]0,219,0,0,219,0,0,24,0,0,24,0,0,219,0,0,219,0,0,24,0,0,24,0
  157. 63005 [131]0,204,0,0,204,0,0,0,0,0,255,0,0,255,0,0,0,0,0,204,0,0,204,0
  158. 63010 [131]0,24,0,0,24,0,0,219,0,0,219,0,0,24,0,0,24,0,0,219,0,0,219,0
  159. 63020 [131]0,51,0,0,51,0,0,0,0,0,255,0,0,255,0,0,0,0,0,51,0,0,51,0
  160.